PATPROC
PROCNAME
P]L	P]V	P]
^           ? CHR(7)                 && RING BELL & print error msg	
             ACTIVATE WINDOW Search_W
             @ 1,2 SAY "Patient ID#: " + QINP + " Was Not Found";
             GET QINP  MESSAGE " Press Enter" COLOR W+/B, B/B 
             READ  && dummy read              
             DEACTIVATE WINDOW Search_W
             RETURN
          ELSE
             COUNT WHILE CUSTNO = QINP TO Howmany
             GOTO 1
             SCAN FOR CUSTNO = QINP
                DO Klist_form
       
PROCNAME
PROCNAME
CRW4	
Match capit`iz